home *** CD-ROM | disk | FTP | other *** search
/ MGE USV-Infopaket 2003 January / MGE USV Infopaket Ausgabe 1-2003 (German).iso / extreme / INIT.DIR / 00001_Script_init chemin next >
Text File  |  2001-07-12  |  2KB  |  70 lines
  1. global gPathCD , gPathDD , gDelimiterChemin
  2.  
  3. on exitFrame
  4.   
  5.   ClearGlobals
  6.   
  7.   puppettempo 1000
  8.   --debut de rajout
  9.   tempo = ""
  10.   -- fin de rajout
  11.   
  12.   -- delimite le chemin mac ou pc
  13.   if the platform contains "Mac" then
  14.     gDelimiterChemin = ":"
  15.     -- on ne sais pas quel est le disque principal !!!
  16.     --  tempo = DrivesToList()[1] --"disque dur" --hard drive"
  17.     
  18.     listTemp = DrivesToList()
  19.     repeat with a in listTemp
  20.       
  21.       if DirectoryExists(a & gDelimiterChemin & "CD Extreme" & gDelimiterChemin & "MGELIENS")=0 then
  22.         tempo = a
  23.         exit repeat  
  24.       end if
  25.       
  26.     end repeat
  27.     
  28.   else
  29.     gDelimiterChemin ="\"
  30.     
  31.     
  32.     listTemp = DrivesToList()
  33.     repeat with a in listTemp
  34.       if a <>"A:" and a <>"B:" then
  35.         if DirectoryExists(a & gDelimiterChemin & "CD Extreme" & gDelimiterChemin & "MGELIENS")=0 then
  36.           tempo = a
  37.           exit repeat  
  38.         end if
  39.       end if
  40.     end repeat
  41.     
  42.   end if
  43.   
  44.   
  45.   gPathDD = the pathname &  "DATA" & gDelimiterChemin
  46.   -- gPathCD =  the pathname & "MGELIENS"   
  47.   gPathCD =  tempo & gDelimiterChemin & "CD Extreme" & gDelimiterChemin & "MGELIENS"   
  48.   
  49.   
  50.   --   debut de rajout
  51.   if tempo="" then
  52.     alert "Veuillez effectuer une installation..."
  53.     quit
  54.   end if
  55.   --   fin de rajout
  56.   
  57.   
  58.   
  59.   
  60.   
  61.   
  62.   
  63.   
  64.   -- INVERSION DE LA RECHERCHE :
  65.   the searchPaths=[gPathDD,gPathCD] 
  66.   --the searchPaths=[gPathCD , gPathDD] 
  67.   
  68. end 
  69.  
  70.